; Installations-Script für das MagicIconSorterTool
; $VER: Install-MIST 1.50 (01.11.94)
(set @default-dest "SYS:")
(complete 10)
(if (< (/ (getversion) 65536) 37)
(abort "Dieses Programm benötigt Kickstart 2.04 oder höher !")
)
(complete 20)
(set destdir
(askdir
(prompt "Wähle den Ordner, in dem das MagicIconSorterTool installiert werden soll (Ein Ordner \"MagicIconSorterTool\" wird dort automatisch angelegt)")
(help @askdir-help)
(default @default-dest)
(newpath)
)
)
(complete 30)
(working "Erzeuge den Ordner MagicIconSorterTool")
(set @default-dest
(tackon destdir "MagicIconSorterTool")
)
(makedir @default-dest
(prompt "Erzeuge den Ordner \"MagicIconSorterTool\"")
(help @makedir-help)
(infos)
(confirm "expert")
)
(complete 40)
(working "Installiere das MagicIconSorterTool")
(copyfiles
(prompt "Installiere das MagicIconSorterTool")
(help @copyfiles-help)
(source "mist")
(all)
(dest @default-dest)
(infos)
(confirm "average")
)
(complete 50)
(working "Sicherung der alten Icons nach ENVARC:Sys/MIST_ALT")
(copyfiles
(prompt "Sicherung der alten Icons")
(help @copyfiles-help)
(source "ENVARC:Sys")
(pattern "def_#?.info")
(dest "ENVARC:Sys/MIST_ALT")
(confirm "expert")
(optional "force")
(nogauge)
)
(complete 60)
(working "Installiere die Icons für das MagicIconSorterTool")
(copyfiles
(prompt "Installiere die Icons für das MagicIconSorterTool")
(help @copyfiles-help)
(source "icons")
(pattern "def_#?.info")
(dest "ENVARC:Sys")
(confirm "expert")
(optional "force")
(nogauge)
)
(complete 65)
(copyfiles
(prompt "Installiere die Icons für das MagicIconSorterTool nach \"ENV:\"")
(help @copyfiles-help)
(source "icons")
(pattern "def_#?.info")
(dest "ENV:Sys")
(optional "force")
(nogauge)
)
(complete 70)
(working "Installiere die Libraries")
(copyfiles
(prompt "Installiere die Libraries")
(help @copyfiles-help)
(source "libs")
(dest "LIBS:")
(all)
(confirm "average")
)
(complete 75)
(working "Installiere die FileTypes")
(copyfiles
(prompt "Installiere die FileTypes")
(help @copyfiles-help)
(source "s")
(dest "S:")
(all)
(confirm "average")
)
(complete 80)
(working "Installiere die MUI-Class")
(set classpfad "MUI:Libs/Mui")
(if (not (exists classpfad))
(
(set classpfad "SYS:")
(askdir
(prompt "Zum ordnungsgemäßen Installieren wird der Ordner \"MUI:Libs/Mui\" benötigt! Dieser existiert nicht. Wo soll ich die MUI-Class installieren?")
(help @askdir-help)
(default classpfad)
(newpath)
)
)
)
(copyfiles
(prompt "Installiere die MUI-Class")
(help @copylib-help)
(source "mui")
(dest classpfad)
(all)
(confirm "average")
)
(complete 90)
(startup "MagicIconSorterTool"
(prompt "Das MagicIconSorterTool benötigt einen \"ASSIGN MIST: ...\"! Soll dafür die User-Startup modifiziert werden?")